subroutine astrosub(cc)

  implicit real*8 (a-h,o-z)
  character*300 cc
  character grid*6
  character*9 cauxra,cauxdec
  character*1 c0,c1

  character*12 clock(3)
  integer nt(8)
  common/dtcom/nyear,month,nday,ntz,ihour,imin,isec,ims
  equivalence (nt(1),nyear)

  grid='FN20qi'
  nfreq=144
  cauxra='00:00:00'
  cauxdec='00:00:00'
  
  call date_and_time(clock(1),clock(2),clock(3),nt)
  ih=ihour-ntz/60
  if(ih.le.0) then
     ih=ih+24
     nday=nday+1
  endif
  uth8=ih + imin/60.d0 + isec/3600.d0 + ims/3600000.d0 
  call astro0(nyear,month,nday,uth8,nfreq,grid,cauxra,cauxdec,           &
     AzSun8,ElSun8,AzMoon8,ElMoon8,AzMoonB8,ElMoonB8,ntsky,ndop,ndop00,  &
     dbMoon8,RAMoon8,DecMoon8,HA8,Dgrd8,sd8,poloffset8,xnr8,dfdt,dfdt0,  &
     RaAux8,DecAux8,AzAux8,ElAux8,width1,width2,w501,w502,xlst8)

  c1=char(10)
  c0=char(0)
  call cs_lock('astrosub')
  write(cc,1010) AzMoon8,c1,ElMoon8,c1,AzMoonB8,c1,ElMoonB8,c1,          &
       AzSun8,c1,ElSun8,c1,ndop,c1,ntsky,c1,dgrd8,char(0)
1010 format('Az:    ',f6.1,a1,         &
            'El:    ',f6.1,a1,         &
            'DxAz:  ',f6.1,a1,         &
            'DxEl:  ',f6.1,a1,         &
            'SunAz: ',f6.1,a1,         &
            'SunEl: ',f6.1,a1,         &
            'Dop:   ',i6,a1,           &
            'Tsky:  ',i6,a1,           &
            'Dgrd:  ',f6.1,a1)


!1010 format(6(f8.1,a1),i8,a1,f8.1,a1)
  call cs_unlock

  return  
end subroutine astrosub
